RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE getlin ( {pent = '¥04-000' 


UBLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES J 


) = 

BEGIN 

: 

BASSES SSSS SETI T CSET TTT CTCL ccc ccc t iter ici t icici iii iii ai iiii. 


1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


ie noe SOF TWARE ss pyeniauee UNDER A LICENSE AND MAY BE USED AND cor ite 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tht AND ad HE 


ie COPYRIGHT (c) 1978 


: NC $0 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER person NO TITLE TO AND OWNERSHIP OF TH 


& 
® 
& 
® 
® 
® 
® 
® 
® 
® 
TRANSFERRED . 
* 
® 
aT 
* 
® 
tt 
* 
x 
® 
® 


MINN SS 2 QOODOOOCOOO 


SOOoCOSCSOOOOCCOOCOOSOOOCOOOOOOOoOSooOoOOoO 
WN OOONAUE WN" OOONOU Ewin 


epee ww lolololololololeleololololololololeololeleolololo) 


MOOD NAMVE WN (OO DNOU EWN SH OODNAOUS WN OOONOUSWwh— 
Ot at tt ot ts ss OOOO 
ae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
é '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
; i is CORPORATION. 
5 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
2 0 $ i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
09 8 | cesabeteiintnisibdinnieeandeestetttaennababadinibiiiatannediniiiatiaidimmeniatabaied 
030 i 
0031 
ie 'e¢ 
0035 i FACILITY: DSR (Digitel Standard RUNOFF) / DSRPLUS 
3 Oose ABSTRACT: Picks up a Line of text and centers it for output. 
3 0037 . ENVIRONMENT: Transportable 
3 0039 i AUTHOR: R.W. Friday CREATION DATE: July, 1978 
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: tz : ! pen. "Revision History’ 

>: 45 44 1 | MODIFIED BY: 

: ry 45 1 

ee rf 1 i 005 KFA00005 Alden 16-Mar-1958 

: rt Se : PUSH/POP_SCA now yo Aste to DSR. 

: 50 $69 1! 004 REROO004 Ron Randall 07-Mar=1983 

ee i 050 1! Global edit of all modules. Updated module names, idents, 
: 2g 0039 } a copyright dates. Changed require files tc BLISS library. 
: 54 1 i- 
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GETLIN 16-Sep-1984 00:39: AX-11 Bliss-32 V4.0-74 Pp 
V L hbo Module Level Declarations 12-808: 3B 99:38:99 RUNOFFeSREIGESLIN BLT 4 oy (33 
sf ZSBTTL ‘Module Level Declarations’ 


' 
TABLE OF CONTENTS: 
INCLUDE FILES: 


DOOOOOAAOOUIININ 


NNNOAAAAA AAA 
SSSSEISALERIS Se 
ce 
SSSSSssssssssss 


; 5 4 ; 
; 6 1 : 
3 1 3 
: 8 1 : 
; 1 3 
: | : 
; ¢ | LIBRARY {NxPORT :xPORT? ! XPORT Library ; 
; REQUIRE "REQ:RNODEF'; i RUNOFF variant definitions ; 
: § 1 XIF DSRPLUS ZTHEN ; 
; 6 LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library ; 
; : LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library ; 
coe 8509 4 ; 
es: 020¢ 1 | EXTERNAL REFERENCES: : 
: 7% 0204 1 EXTERNAL LITERAL : 
: a 0 05 RINTES : UNSIGNED (8); : 
: 79 0 09 1 EXTERNAL : 
: 80 0208 1 GCA : GCA_DEFINITION, : 
>: Bi 0209 1 MRA : REF FIXED STRING, : 
: Be 0210 1 SCA : SCA_DEFINITION, ; 
: 8 0211 1 TSF : TSF~DEFINITION : 
: Be Qeig 1 TTABLE COUNTED_LISf; : 
> 86 0214 1 EXTERNAL ROUTINE : 
: 87 0215 1 NDCHR, : 
3 88 0216 1 ENDWRD, F 
8 Bite. : 
2 BB] Re. : 
; 38 3 J SETCAS; : 
; 95 : SEVER PUPERM. ‘Error messages : 
: 3 5 1 RNFTTL: : 
=: aT : 
; 1 | OWN STORAGE: : 
a. at : 
: 198 $ 11 PP_SCA : SH_R_SCA_BLOCK; | !Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 


2 
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GLOBAL ROUTINE GETLIN (PRESCAN, DO_CASE, TRANSLATION, DO_OUTPUT) : NOVALUE = 


— 
oO 
uw 


eur 


'4 


le¢ 
FUNCTIONAL DESCRIPTION: 


WANN Ww 


Starting with the current position, eertis parses up to 
the first ';' or end-of-Lline; the resulting line is 
centered and output. 


i FORMAL PARAMETERS: 


1 

' 

' 

' 

1 

' 

! PRESCAN - it rue, scanning stops when the first ';' 
’ s found. Otherwise, scanning goes to the 
! end of the record. 

' DO_CASE - If true, then TRANSLATION indicates which 
} case rules are to be applied. 
hag 
iH 

‘ 

] 

1 

] 

V 

' 

1 

1 


DO_OUTPU - If true, then output the scanned text, 


else, skip output related code. 
i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i=) 
WI =O OO9 NOU sh O09 NOME HOD Ie 


i SIDE EFFECTS: None 


SCA_ROLD™: VECTOR CSCA_SIZE); 


‘Preserve SCA so flags in text don't cause changes 
'to the formatting environment. 


PUSH_SCA; !Save the Special SAVEd SCA bits. 


INCR I FROM 0 TO SCA_SIZE = 1 DO 
SCA_HOLD C.1] = .SCA C.1); 


'Set up sca so SCANT preserves white space; lots of room 
‘is provided so a new Line doesn't get started unless 
‘the user makes an error. 

= Oo 


LL ALSE; 
USTIFY = FALSE; 
Ss . 


Mroron 


NOUE WN OOO NAUE WN CO ODNAUE WN (OOD ONAUE WI OOONOU 


SNS A PAA AA AAAA MIMI BPP EPL LEE 


m= 150; ‘Maximum width Line. 
RESCAN = .PRESCAN; 'Indicate when processing stops. 


-DO_CASE 
SETCAS (. TRANSLATION); ‘Establish specified case rules. 


De ee Fe Se Se Se Be Be Be Se Se Se Se Fe Se Ge Se Ge Fee Se FH Ge Se Se Fe Se Ge Ge Ge Ge Ge Se Ge SF Se Se Se Oe SF Ss Se Se Se Se SE Se SF Se Ses Se Sse Setseese 
el ee ee a ee ee el ee el el ee ce ee ee ee ee eed eed od 
DRIP RI IAIN IAIAD Be Oo Se oe Be oe SLL III IIR IRIN AS AD DAD Dn DD 
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BEGIN 
LOCAL 
HOLD. TAB_COUNT 


2SSeNe UEFWN—OODBNOULSWN —O0OnNO 


POPIPIPOPIPINIPIPIPNNONPPoNPofnofnofnononyd 


ONOUS wt —O0N 


‘Preserve tab count; temporarily set it to zero 
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'so tabs get treated bake ppgeges 
HOLD TAB COUNT = .TTABLE CCL_INDEX]; 
TTABCE CCL_INDEX) = 0; 


SCANT (); 'Scan one input Line. 


' Drop trailing epeces. unless at least one of them is 
! underlined. SCA_WRD_CPEND is equal to RINTES if a space/tab 


! was encountered after the Last character on the Line. 
IF .SCA_WRD_CPEND EQL RINTES 
THEN 


IF .SCA_WRD_LST_UND EQL 0 
THEN 


'None of the a spaces were underlined. 
'This means that it is safe to drop them. 
SCA_WRD_LST_SP = 0; 


'The call on ENDWRD is made here, rather than letting 
'OUTNJ do it. The reason it's done here is so that 
!TSF_EXT_HL gets updated, so that the length of the 
‘text can be obtained. 

ENDWRD (FALSE, FALSE, FALSE); 


'Check to see that the text retrieved is not too long 
foen’ a enti GTR .GCA_LWIDTH 


COCO COOCOOCOOOCOOoOooO 


BEGIN 
ERMA _(RNFTTL, FALSE); !Text cannot possibly be centered 
PSF -EXT_HL = 0; !Fix up TSF_EXT_HL. The entire Line still gets printed. 


WAWANW AWA ANA AANA AWWIIinornonororornonorononon) 


a a a kk dd td 
BBP EE MAAN ALAIPPPIPIPINIPUPINIDY 2 2 tt 3 4 QODTOCOCOOCOOCOCOCOOVOOOWOOOO 


= o © OOOOO0OOMMMOMC CONN NINN NII OOOO OOO 


'Restore SCA so actual margins can be used. 
3 INCR I FROM SCA_CASE SIZE TO SCA_SIZE - 1 DO ‘NOTE: modified case rules ‘‘play through’. 
; SCA C.1] = TSCA_AOLD C.1); 
; POP_SCA; 'Restore the special SAVEd SCA bits. 
3 TTABLE CCL_INDEX] = .HOLD_TAB_COUNT; 'Restore tab count 
: IF NOT .DO_OUTPUT ! If output was not wanted, 
3 THEN RETURN; ! it best we return now. Otherwise, proceding 
; ! beyond here will generate output. 


‘Compute and validate number of spaces that have to 
'be inserted on the left to center the Line 
TSF _ADJUST = .SCA_LM + (.SCA_RM = .SCA_LM = .TSF_EXT_HL)/2; 


IF .TSF_ADJUST LSS 0 
THEN 
BEGIN 
Fore (RNFCJL); ‘It's not possible to center the Line. 


ADJUST = 6; ‘Setting tsf_adjust to zero causes the Line 
ND; 'to go out against the left edge of the page. 


MEW O OODNO NEADS (OOO NAUE WN $ O OONAU EWN (CO OONAUES WN —OVOONAOUESWN—O”9 
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‘Force out the Line of text 


62 
GETLIN 16-Sep 4 9: AX-11 Bliss-32 v4.0-742 Page 6 
wither tire Module Level Declarations 14-Sep =138% 99: 3g 99 RUNOFF .SRCIGETLIN.BL1I:1 9 (4) 
: 219 4 OUTNY (); : 
: 220 ge7$ ¢ END; ‘End of GETLIN ; 
TITLE GETLIN ; 
“IDENT \V04-000\ : 
.PSECT SOWNS,NOEXE,2 3 
00000 PP_SCA: .BLKB 48 ; 
.EXTRN RINTE GCA MRA ; 
XTRN SCA Te ABLE ; 
-EXTRN ENDCHR ENDURD ERMA ; 
“EXTRN ERML, OUTNJ, SCANT : 
“EXTRN. SETCAS, RNFCJL,  RNFTTL i 
-PSECT $CODE$,NOWRT,2 ; 
007¢ 00000 .ENTRY GETLIN, Save R2,R3,R4,R5,%6 : 0232 ; 
56 000000006 EF 9E 900¢ MOVAB TTABLE+4, R6 ; : 
55 990000006 EF 9€ 0000 MOVAB TSF, RS : ; 
54 00000000' EF 9E 0019 MOVAB PP_SCA, R4 : ; 
53 000000006 EF 9€ 0001 MOVAB SCK+116, R3 : : 
SE FEBO cE 3 OO01E MOVAB =384(SPS, SP : ; 
64 FO B3 006 000 MOVL § @SCA+100. PP_SCA + 0265 ; 
04 Ad F4 B3 DO 60027 MOVL  @SCA+104. PPTSCA+4 : ; 
08 Ad F8 B3 DO 0002C MOVL  a@SCA+108. PPTSCA+8 : ; 
OC AG FC OB D6 0031 MOVL  aSCA+112. PPTSCA+12 : ; 
10 AG 00 B3 00 00036 MOVL  a@SCA+116, PPTSCA+16 : F 
| ae 04 83 DO 000 MOVL  a@SCA+120. PPTSCA+20 : ; 
18 AG 08 B3 DO 0904 MOVL @SCA+124, PPTSCA+24 : ; 
1c A 0C B3 DO 0004 MOVL  aSCA+1 8. PP~SCA+28 : ; 
20 AG 10 B3 00 004A MOVL a@SCA+132. PPTSCA+32 : ; 
24 «AG 14 B3 DO 0004F MOVL  @SCA¢1 6. PP~SCA+36 : ; 
28 = AG 18 B3 DO 00054 MOVL @SCA+140, PPTSCA+40 : : 
2c AG 1C e DO $9059 MOVL @SCA+144, PPTSCA+44 : : 
6 D4 O05 CLRL i : 0272 F 
6E40 gc A34 09 60 1$: MOVL SCACIJ, SCA_HOLDCIJ : 027 : 
F2 50 0000005F SF F 9066 AOBLEQ #95 I 1$ ; 3 
Fe B3 D4 00 $F CLRL  aSCA+ 6s : 0278 : 
FO BS 04 000 CLRL  aSCA+100 : 0279 ; 
9? ps 074 CLRL aSCA+116 r 80 3 
04 8 6 BF 9A 00077 MOVZBL #150, aSCA+120 : 81 : 
8 A 4 ac 0b0 0007¢ VL PRESCAN, SCA+172 : 0282 : 
8 AC €9 1 BLBC ~—_—i@O : 9 84 ; 
C AC DD PUSHL TRANSLATION ; : 
000000006 EF 01 FB CALLS SETCAS : : 
66 D F 2$: MOVL TABLE +4, HOLD_TAB_COUNT : 0290 : 
00006 86 Pe 0009 ets Oe 8535 ; 
00006 Br Qua c3 of 098 CMPL HO. SANT #RINTES ; 0299 3 
00E0 3 P A6 TSTL CA+340 : 0302 : 
oos C3 nC CURL StAe332 
te Ti 080 3$: CLRO © =(SP) : 838 3 


GETLIN 
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000000006 f 
000000006 FF 04 
000000006 
000000006 Ff 
0 
04 
50 
BC A34 
F2 50 0000005F 
FO 6OB 
F4 B 04 
F8 iB 08 
FC 6B OC 
00 8B 10 
04 83 14 
08 83 18 
oc 83 1¢ 
10 8B $s 
14 =B3 4 
18 B83 sé 
1% 8 65 C 
33 
3 10 
50 
51 04 83 00 
2} 04 
28 AO 51 00 
000000006 
000000006 fF 
0 
28 


00000000G_ EF 


3; Routine Size: 355 bytes, Routine Base: SCODE$ 


$1 St ae 1 
349 Gye 'End 
2 0350 0 ELUDOM 


PSECT SUMMARY 
Bytes 
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7E 04 0008 CLRL 56s SP) 
; FB B CALLS #3, ENDWRD 
D BB MOVL R 

AQ D| B CMPL  4(RO), aGCA+140 

15 1 C BLEG 46 4$ 

7E D4 000¢ CLRL = = (SP) 

BF DD OOOCA PUSHL #RNFTTL 

é FB 09 CALLS #2, ERM 

65 D D MOVL TSF, RO 

AQ D4 OOODA CLRL = & (RO 

19 D Dp 4$: MOVL #25, I 
40 D OE 5$: MOVL SCA_HOLD[IJ, SCACII 
SF OF £6 AOBLEQ #957 I, 
64 D OOE OVL PP_§CA, aSCA +100 

A4 DO OOOF MOVL  PPTSCA+4, @SCA+104 
AS DO O00F MOVL  PPTSCA+8, a@SCA+108 
AS DO OOOFC MOVL PPTSCA+10, a@SCA+112 
A4 00 00101 MOVL peu scars, aSCA+116 
Ad 00 90196 MOVL  PPTSCA+20, ascariz0 
Ad dO 0108 MOVL  PPTSCA+24, @SCA+124 
A4 DO 0011 MOVL  PPTSCA+28, @SCA+128 
Ad DO 00115 MOVL  PPTSCA+32, ascarl 2 
AG 00 OO11A MOVL  PPTSCA+36, aSCA+136 
Ad dO oor MOVL §PPTSCA+40, @SCA+140 
AS DO 00124 MOVL  PPTSCA+44. @SCA+144 
52 DO 00129 MOVL HOLD TAB COUNT, TTABLE+4 
ag 9 001 C BLBC 00 OUTPUT, 7$ 

6 00 01 9 MOVL. TSF, RO 
B3 C3 001 SUBL3 a@SCA+116, @SCA+120, R1 
AO C2 00139 SUBL2 4 (RO), RI 
02 C6 0013D DIVL2 #2, Ri 
: 3 90140 ADDL astatit6, R1, 40(RO) 
af DD 00148 PUSHL #RNFCJL 

1 FB O14 CALLS #1, ERML 
65 00 0015 MOVL TSF, RO 
AO 04 00158 CLRL  40(RO) 
00 FB 0158 6$ CALLS #0, OUTNJ 
04 00162 7$ RET 
+ 0000 
of module 
Attributes 


48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Pete Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Be Se Ge Fe Ge Be Ge Fe Fe He Ge Se Ge Ge Ge Fe te Fe Ge Fe Fe Ge Be Se 
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SCODES 355 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


er Symbols eee ea ae Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIXPORT.L32;1 37y 9 9 252 98:08 .¢ 
“$255$DUA28 : CRUNOFF .SRCJDSRLIB.L32;1 124 4 84 00:00. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETLIN/OBJ=OBJ$:GETLIN MSRC$:GETLIN/UPDATE=(ENH$:GETLIN) 


Size: 355 code + 48 data bytes 
; Run Time: :09. 

; Elapsed Time: 0:28.8 

; Lines/CPU Min: 185 

; Lexemes/CPU-Min: 18293 

: onary Used: 95 pages 

; Compila 


tion Complete 
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